sHelp
                                     PHA.INV
       2
 main
   drugs
     levels
     locations
 transit.at
   transit.at.inventories
     transit.at.drugs
 transit.queue

 Ì   €     2
main
[inventory]
&(T)TI[mi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inventory                   10 FREE     L  MM.INVENT      mi                                                      
 Ì   €     2
drugs
[inventory,  drug]
&(T)TI[mi]D[tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 drug                        10 FREE     L  PHA.DRUG       tf                                                      
 from.stock                   1 YN       L                 &(T)TI[mi]D[tf]|3                                           
 par                          6 PDEC     R                 &(T)TI[mi]D[tf]|1                                           
 par.string                  25 FREE     L                 &(T)TI[mi]D[tf]|0                                           
 shelf                       10 FREE     L                 &(T)TI[mi]D[tf]|2                                           
 unit.issue                   4 FREE     L                 &(T)TI[mi]D[tf]|4                                           
 Ì   €     2
levels
[inventory,drug,  level.type]
&(T)TI[mi]D[tf]L[tiL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 level.type                   4 CHOICE   L                 tiL                                                         
 level                        6 PDEC     R                 &(T)TI[mi]D[tf]L[tiL]|1                                     
 level.string                25 FREE     L                 &(T)TI[mi]D[tf]L[tiL]|0                                     
 Ì   €     2
locations
[inventory,drug,  drug.location]
&(T)TI[mi]D[tf]O[tiO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 drug.location               10 FREE     L                 tiO                                                         
 Ì       2
transit.at
[transit.at.date,transit.at.q]
*(T1)TITAT[titDT,titQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transit.at.date              8 DATE     L                 titDT                                                       
 transit.at.q                 6 PINT     R                 titQ                                                        
 transit.at.location         10 FREE     L  PHA.LOC        *(T1)TITAT[titDT,titQ]|2                                
 transit.at.time              4 HHMM     L                 *(T1)TITAT[titDT,titQ]|0                                    
 transit.at.user             10 FREE     L  MIS.USER       *(T1)TITAT[titDT,titQ]|1                                
 Ì   €     2
transit.at.inventories
[transit.at.date,transit.at.q,  transit.at.inventory]
*(T1)TITAT[titDT,titQ]I[mi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transit.at.inventory        10 FREE     L  MM.INVENT      mi                                                      
 Ì   €     2
transit.at.drugs
[transit.at.date,transit.at.q,transit.at.inventory,  transit.at.drug]
*(T1)TITAT[titDT,titQ]I[mi,tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transit.at.drug             10 FREE     L  PHA.DRUG       tf                                                      
 transit.at.new.amount       10 PINT     R                 *(T1)TITAT[titDT,titQ]I[mi,tf]|1                            
 transit.at.old.amount       10 PINT     R                 *(T1)TITAT[titDT,titQ]I[mi,tf]|0                            
 Ì       2
transit.queue
[transit.location,transit.inventory,transit.drug]
*(T1)TITQ[ggn,mi,tf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transit.location            10 FREE     L  PHA.LOC        ggn                                                     
 transit.inventory           10 FREE     L  MM.INVENT      mi                                                      
 transit.drug                10 FREE     L  PHA.DRUG       tf                                                      
 transit                     10 PINT     R                 *(T1)TITQ[ggn,mi,tf]|0                                      
 transit.cost                12 MONEY    R                 VAL=@transit*(@PHA.DRUG.unit.cost[@transit.drug])